2 POKE788,52:POKE792,193:POKE793,254
3 POKE53280,11:POKE53281,11
5 PRINTCHR$(14)
6 GOSUB55000:GOSUB30000:CLR:OPEN15,8,15,"I0":JJ$="[206]"
9 DIMA$(11),I$(664),B$(25,5),S(25),M(25):TI$="000000":FD=0:FX=11:CH=3:FP=1
10 PRINT"[147][144] [198]AKTURIERUNG 1990 BY [202]. [215][201][204][204][197][205][211]-[214]ERLAG [146]"
11 IFK1=1THENK1=0:GOTO10005
15 GOSUB50000
19 GOSUB10000
20 POKE198,0:PRINT"[194]EENDEN     =0[146]":PRINT"[210]EKLAME     =1[146]":PRINT"[210]ECHNUNG    =2[146]"
21 PRINT"[205]AHNUNG     =3[146]":PRINT"[204]IEFERSCHEIN=4[146]":PRINT"[194]ESTELLUNG  =5[146]"
22 PRINT"[209]UITTUNG    =6[146]":PRINT"[203]ALKULATION =7[146]"
25 GETA$:IFA$=""THEN25
26 A=VAL(A$)+1
27 ONAGOTO100,200,300,400,500,600,700,800
28 GOTO25
100 GOSUB10000:CLOSE15:CLOSE3
101 PRINT"[204]EGE DIE [208]ROGRAMMDISKETTE IN DIE [198]LOPPY":PRINT
102 PRINT"[196]RUECKE [211]PACE, FALLS OK"
103 GETA$:IFA$<>CHR$(32)THEN103
104 OPEN15,8,15,"I":OPEN1,8,14,"@:INDEX FAKTUR,S,W":GOSUB43000
105 FORI=1TO664
106 IFI$(I)=""THENI$(I)="/"
107 PRINT#1,I$(I);CHR$(13);:GOSUB43000:NEXTI
108 CLOSE1
110 PRINT"[147][158]":PRINT"[210]ECHENZEIT ";TI$:END
200 GOSUB10000
205 PRINT" [212]EXT BIS 255 [218]EICHEN                   [146]"
210 GETA$:IFA$=""THENPRINT"[164][157]";:GOTO210
211 IFA$=CHR$(20)THEN210
212 IFA$=CHR$(13)THEN220
215 T$=T$+A$:PRINTA$;
217 GOTO210
220 PRINT"[147]":POKE198,0
225 FORI=1TOLEN(T$)
227 GETB$:IFB$<>""THEN260
230 A$=MID$(T$,I,1)
235 PRINT"[144]";A$
240 PRINT"";CHR$(20)
242 FORK=1TO100:NEXTK
245 NEXTI
250 GOTO225
260 GOTO19
300 OPEN2,4:GOSUB5000:GOSUB1500
305 GOSUB10000
307 PRINT"[210]ECHNUNGSNR.[146] ";VAL(R$)+1:INPUT"[145]";R$:RP=0
320 GOSUB10000
321 INPUT"[198]ORTSETZEN [202]/[206][146]  [202][157][157][157]";GG$:IFGG$<>"[206]"ANDGG$<>"[202]"THENPRINT"[145][145]":GOTO321
322 RP=RP+1:IFGG$="[206]"ORRP=26THEN341
325 GOSUB10000:NT=0:GOSUB8000
326 PRINT"[193]NZAHL = 0 FUER [212]EXTZEILE               [146]"
330 PRINT"[193]NZ.[146]":PRINT"[193]RT.[146]":PRINT"[197]-[208]R[146] ";NT
331 PRINT"[210]AB%[146]  [206]":PRINT"[205][215][211]%[146]"
333 PRINT"";
335 INPUT"";B$(RP,1):INPUT"";B$(RP,2):
336 IFB$(RP,1)="0"THENB$(RP,2)=LEFT$(B$(RP,2),53):GOTO338
337 B$(RP,2)=LEFT$(B$(RP,2),23)
338 IFB$(RP,1)="0"THENB$(RP,3)="":B$(RP,4)="":B$(RP,5)="":GOTO340
339 INPUT"";B$(RP,3):INPUT"";B$(RP,4):INPUT"";B$(RP,5)
340 GOTO320
341 RP=RP-1:GOSUB10000:GOSUB8000
342 PRINT"[208]ORTO/[214]ERP.[146] ";NT:INPUT"[145]";V
343 GOSUB10000
344 INPUT"[193]NZAHL[146]  1[157][157][157]";AN:GOSUB10000
345 FORX=1TOAN
346 RESTORE:PRINT#2,CHR$(15):PRINT#2:CLOSE2:GOSUB1100:OPEN2,4
347 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
350 PRINT#2,CHR$(15)CHR$(17)TL$+A$(0)
351 PRINT#2,CHR$(17)TL$+A$(1)+" "+A$(2):PRINT#2,CHR$(17)TL$+A$(3)
353 PRINT#2:PRINT#2,CHR$(17)TL$+A$(4)+" "+A$(5):PRINT#2,TL$;
354 FORJ=1TOLEN(A$(4))+LEN(A$(5))+1:PRINT#2,"=";:NEXTJ:PRINT#2
355 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
357 PRINT#2,CHR$(17)"    [201]HRE [194]ESTELLUNG VOM             [213]NSER [218]EICHEN              ";
358 PRINT#2,CHR$(17)"[196]ATUM"
359 PRINT#2:PRINT#2,CHR$(17)CHR$(16)"09";A$(6);:PRINT#2,CHR$(17)CHR$(16)"40"+A$(7);
360 PRINT#2,CHR$(17)CHR$(16)"62"+A$(8)
365 PRINT#2:PRINT#2:PRINT#2
367 PRINT#2,CHR$(14)CHR$(17)"[210]ECHNUNG-[206][210].: ";R$
368 PRINT#2:PRINT#2
369 PRINT#2,CHR$(17)CHR$(15)"   [193]NZAHL    [193]RTIKEL/[196]IENSTL.         [197]-[208]REIS    [210]ABATT ";
370 PRINT#2,CHR$(17)"    [211]UMME     [205][215][211]T-[211]ATZ"
371 PRINT#2,"=====================================================================";
372 PRINT#2,"===========":D=35+9+RP
373 FORI=1TORP
374 IFB$(I,1)="0"THEN376
375 PRINT#2,CHR$(16)"05"+B$(I,1);
376 PRINT#2,CHR$(17)CHR$(16)"13"+B$(I,2);:IFB$(I,1)="0"THENPRINT#2:GOTO385
377 Z=VAL(B$(I,3)):P=35:GOSUB2000:PRINT#2,CHR$(16)P$+Z$;
378 IFB$(I,4)="[206]"THEN380
379 Z=VAL(B$(I,4)):P=45:GOSUB2000:PRINT#2,CHR$(16)P$+Z$;
380 S(I)=VAL(B$(I,1))*VAL(B$(I,3)):S(I)=S(I)-S(I)*VAL(B$(I,4))/100
381 S(I)=INT(S(I)*100+.5)/100
382 Z=S(I):P=55:GOSUB2000:PRINT#2,CHR$(16)P$+Z$;
383 Z=VAL(B$(I,5)):P=69:GOSUB2000:PRINT#2,CHR$(16)P$+Z$
384 M(I)=S(I)*VAL(B$(I,5))/100:M(I)=INT(M(I)*100+.5)/100
385 NEXTI
386 PRINT#2,CHR$(16)"56=========="
387 FORI=1TORP:S=S+S(I):NEXTI:Z=S:P=55:GOSUB2000:PRINT#2,CHR$(16)P$+Z$
388 PRINT#2,CHR$(17)CHR$(16)"30[208]ORTO UND [214]ERPACKUNG";:Z=V:P=55:GOSUB2000
389 PRINT#2,CHR$(16)P$+Z$
390 PRINT#2,CHR$(17)CHR$(16)"30[205]EHRWERTSTEUER";:FORI=1TORP:M=M+M(I):NEXTI
391 M=M+V*14/100:M=INT(M*100+.5)/100:Z=M:P=55:GOSUB2000:PRINT#2,CHR$(16)P$+Z$
392 PRINT#2,CHR$(16)"56=========="
393 PRINT#2,CHR$(17)CHR$(16)"30[199]ESAMTPREIS";:Z=S+V+M:P=55:GOSUB2000
394 PRINT#2,CHR$(16)P$+Z$
395 PRINT#2:PRINT#2:PRINT#2,CHR$(17)"[205]IT FREUNDLICHEN [199]RUESSEN"
396 FORJ=1TO70-D:PRINT#2:NEXTJ:X1=S+V+M:GOSUB4000
397 NEXTX:A$(6)=STR$(X1):A$(7)=R$:A$(9)="-":A$(10)="-":A$(11)="-"
398 CLOSE2:GOSUB6000:GOTO19
400 OPEN2,4:GOSUB1500
405 GOSUB10000
407 INPUT"[205]AHNUNGSNR[146]";RR$
408 GOSUB10000
410 PRINT"[210]ECHNUNGSNR[146]":PRINT"[194]ETRAG     [146]"
412 PRINT""
415 INPUT"";R$:INPUT"";B$
420 GOSUB10000
421 INPUT"[193]NZAHL[146]  1[157][157][157]";AN
425 GOSUB10000
445 FORX=1TOAN
446 RESTORE:PRINT#2,CHR$(15):PRINT#2:CLOSE2:GOSUB1100:OPEN2,4
447 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
450 PRINT#2,CHR$(15)CHR$(17)TL$+A$(0)
451 PRINT#2,CHR$(17)TL$+A$(1)+" "+A$(2):PRINT#2,CHR$(17)TL$+A$(3)
453 PRINT#2:PRINT#2,CHR$(17)TL$+A$(4)+" "+A$(5):PRINT#2,TL$;
454 FORJ=1TOLEN(A$(4))+LEN(A$(5))+1:PRINT#2,"=";:NEXTJ:PRINT#2
455 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
457 PRINT#2,CHR$(17)"    [201]HRE [194]ESTELLUNG VOM             [213]NSER [218]EICHEN              ";
458 PRINT#2,CHR$(17)"[196]ATUM"
459 PRINT#2:PRINT#2,CHR$(17)CHR$(16)"09";A$(6);:PRINT#2,CHR$(17)CHR$(16)"40"+A$(7);
460 PRINT#2,CHR$(17)CHR$(16)"62"+A$(8)
465 PRINT#2:PRINT#2:PRINT#2
467 PRINT#2,CHR$(14)CHR$(17)"[205]AHNUNG-[206][210].: ";RR$
468 PRINT#2:PRINT#2
470 PRINT#2,CHR$(17)"[211]IE HABEN ES SICHER UEBERSEHEN, DIE"
471 PRINT#2,CHR$(17)"UNTENSTEHENDE [198]ORDERUNG ZU BEGLEICHEN."
472 PRINT#2,CHR$(17)"[215]IR BITTEN UM BALDIGE [213]EBERWEISUNG"
473 PRINT#2,CHR$(17)"DES [194]ETRAGES !":PRINT#2:PRINT#2
474 PRINT#2,CHR$(15)CHR$(17)"[205]IT FREUNDLICHEN [199]RUESSEN"
475 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
478 PRINT#2,CHR$(17)CHR$(16)"30[210]ECHNUNGSNUMMER :  ";R$
480 PRINT#2,CHR$(17)CHR$(16)"30[210]ECHNUNGSBETRAG :  ";B$
485 FORI=1TO20:PRINT#2:NEXTI
490 NEXT X
495 CLOSE2:GOTO19
500 OPEN2,4:GOSUB1500
505 GOSUB10000
507 INPUT"[204]IEFERUNGSNR[146]";R$
508 GOSUB10000
510 INPUT"# [204]IEFERUNGSPOS[146]  1[157][157][157]";RP:IFRP<1ORRP>25THENPRINT"[145][145]":GOTO510
520 FORI=1TORP
525 GOSUB10000
530 PRINT"[193]NZ.[146]":PRINT"[193]RT.[146]":PRINT"[206]-[208] [146]"
533 PRINT"";
535 INPUT"";B$(I,1)
536 INPUT"";B$(I,2):B$(I,2)=LEFT$(B$(I,2),23)
537 INPUT"";B$(I,3)
540 NEXTI
541 GOSUB10000
542 INPUT"[193]NZAHL[146]  1[157][157][157]";AN
543 GOSUB10000
544 FORX=1TOAN
545 RESTORE:PRINT#2,CHR$(15):PRINT#2:CLOSE2:GOSUB1100:OPEN2,4
547 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
550 PRINT#2,CHR$(15)CHR$(17)TL$+A$(0)
551 PRINT#2,CHR$(17)TL$+A$(1)+" "+A$(2):PRINT#2,CHR$(17)TL$+A$(3)
553 PRINT#2:PRINT#2,CHR$(17)TL$+A$(4)+" "+A$(5):PRINT#2,TL$;
554 FORJ=1TOLEN(A$(4))+LEN(A$(5))+1:PRINT#2,"=";:NEXTJ:PRINT#2
555 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
557 PRINT#2,CHR$(17)"    [201]HRE [194]ESTELLUNG VOM             [213]NSER [218]EICHEN              ";
558 PRINT#2,CHR$(17)"[196]ATUM"
559 PRINT#2:PRINT#2,CHR$(17)CHR$(16)"09";A$(6);:PRINT#2,CHR$(17)CHR$(16)"40"+A$(7);
560 PRINT#2,CHR$(17)CHR$(16)"62"+A$(8)
565 PRINT#2:PRINT#2:PRINT#2
567 PRINT#2,CHR$(14)CHR$(17)"[204]IEFERSCHEIN-[206][210].: ";R$
568 PRINT#2:PRINT#2
569 PRINT#2,CHR$(14)CHR$(17)" [193]NZAHL [193]RTIKEL              [206]ETTOPREIS"
571 PRINT#2,"========================================":D=35+RP+3
574 SS=0:FORI=1TORP
575 PRINT#2,CHR$(15)CHR$(16)"06"+B$(I,1);
576 PRINT#2,CHR$(17)CHR$(16)"16"+B$(I,2);
577 Z=VAL(B$(I,3)):SS=SS+Z*VAL(B$(I,1)):P=60:GOSUB2000:PRINT#2,CHR$(16)P$+Z$
585 NEXTI
586 PRINT#2:PRINT#2,CHR$(16)"45SUMME";:Z=SS:P=60:GOSUB2000:PRINT#2,CHR$(16)P$+Z$
587 PRINT#2:PRINT#2:PRINT#2,CHR$(17)"[205]IT FREUNDLICHEN [199]RUESSEN"
590 FORI=1TO68-D:PRINT#2:NEXTI
595 NEXTX
596 CLOSE2:GOTO19
599 PRINT:PRINT"[195]ONTINUE DRUECKE [211]PACE[146][145]";
600 OPEN2,4:GOSUB1500
605 GOSUB10000
607 INPUT"[194]ESTELLNR[146]";R$
608 GOSUB10000
610 INPUT"# [194]ESTELLPOS[146]  1[157][157][157]";RP:IFRP<1ORRP>25THENPRINT"[145][145]":GOTO510
620 FORI=1TORP
625 GOSUB10000
630 PRINT"[193]NZ.[146]":PRINT"[193]RT.[146]":PRINT"[206]-[208] [146]"
633 PRINT"";
635 INPUT"";B$(I,1)
636 INPUT"";B$(I,2):B$(I,2)=LEFT$(B$(I,2),23)
637 INPUT"";B$(I,3)
640 NEXTI
641 GOSUB10000
642 INPUT"[193]NZAHL[146]  1[157][157][157]";AN
643 GOSUB10000
644 FORX=1TOAN
645 RESTORE:PRINT#2,CHR$(15):PRINT#2:CLOSE2:GOSUB1100:OPEN2,4
647 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
650 PRINT#2,CHR$(15)CHR$(17)TL$+A$(0)
651 PRINT#2,CHR$(17)TL$+A$(1)+" "+A$(2):PRINT#2,CHR$(17)TL$+A$(3)
653 PRINT#2:PRINT#2,CHR$(17)TL$+A$(4)+" "+A$(5):PRINT#2,TL$;
654 FORJ=1TOLEN(A$(4))+LEN(A$(5))+1:PRINT#2,"=";:NEXTJ:PRINT#2
655 PRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2
657 PRINT#2,CHR$(17)"    [201]HR [193]NGEBOT VOM                 [213]NSER [218]EICHEN              ";
658 PRINT#2,CHR$(17)"[196]ATUM"
659 PRINT#2:PRINT#2,CHR$(17)CHR$(16)"08";A$(6);:PRINT#2,CHR$(17)CHR$(16)"40"+A$(7);
660 PRINT#2,CHR$(17)CHR$(16)"62"+A$(8)
665 PRINT#2:PRINT#2:PRINT#2
667 PRINT#2,CHR$(14)CHR$(17)"[194]ESTELL-[206][210].: ";R$
668 PRINT#2:PRINT#2
669 PRINT#2,CHR$(14)CHR$(17)" [193]NZAHL [193]RTIKEL              [206]ETTOPREIS"
671 PRINT#2,"========================================":D=35+RP+3
674 SS=0:FORI=1TORP
675 PRINT#2,CHR$(15)CHR$(16)"06"+B$(I,1);
676 PRINT#2,CHR$(17)CHR$(16)"16"+B$(I,2);
677 Z=VAL(B$(I,3)):SS=SS+Z*VAL(B$(I,1)):P=60:GOSUB2000:PRINT#2,CHR$(16)P$+Z$
685 NEXTI
686 PRINT#2:PRINT#2,CHR$(16)"45SUMME";:Z=SS:P=60:GOSUB2000:PRINT#2,CHR$(16)P$+Z$
687 PRINT#2:PRINT#2:PRINT#2,CHR$(17)"[205]IT FREUNDLICHEN [199]RUESSEN"
690 FORI=1TO68-D:PRINT#2:NEXTI
695 NEXTX
696 CLOSE2:GOTO19
700 GOSUB10000
705 PRINT"[206]AME[146]":PRINT"[211]TR.[146]":PRINT"[207]RT [146]":PRINT"[196][205]  [146]"
710 PRINT""
715 INPUT"";N$
716 INPUT"";S$
717 INPUT"";O$
718 INPUT"";D$
720 GOSUB10000
723 FORX=1TO2
725 RESTORE:OPEN2,4:PRINT#2:PRINT#2:CLOSE2:GOSUB1100:OPEN2,4
730 PRINT#2,CHR$(15):PRINT#2:PRINT#2:PRINT#2
735 PRINT#2,CHR$(15)CHR$(17)"[215]IR BESCHEINIGEN HIERMIT DEN [194]ETRAG VON"
736 PRINT#2
737 Z=VAL(D$):P=10:GOSUB2000:PRINT#2,"*****";Z$;" DM"
740 PRINT#2
745 PRINT#2,CHR$(17)"VON [200]ERRN/[198]RAU/[198]IRMA ":PRINT#2
750 PRINT#2,CHR$(17)N$;" , ";S$:PRINT#2:PRINT#2,CHR$(17)O$:PRINT#2
755 PRINT#2,CHR$(17)"BAR ODER PER [211]CHECK ERHALTEN ZU HABEN."
760 PRINT#2:PRINT#2:PRINT#2
765 PRINT#2,"   ...........     .............."
770 PRINT#2,CHR$(17)"   ([207]RT,[196]ATUM)     ([213]NTERSCHRIFT)
775 [129]I[178]1[164]7:[152]2:[130]I
780 [160]2
783 [130]X
785 [137]19
800 [141]10000:[133]"(null)ETTO-(null)IEF.WAIT";NL:[153]:[139]NL[178]0[167]800
802 [133]"(null)ABATT %   WAIT  (null)CMDCMDCMD";R$:[139]R$[178]"(null)"[167]RA[178]0:[137]804
803 RA[178][197](R$)
804 NL[178]NL[171](NL[173]100[172]RA):[153]
805 [133]"(null)KONTI %   WAIT  (null)CMDCMDCMD";S$:[139]S$[178]"(null)"[167]EK[178]NL:[137]808
806 SO[178][197](S$)
808 EK[178]NL[171](NL[173]100[172]SO):EK[178][181](EK[172]100[170].5)[173]100
810 [141]10000
812 [153]"VALINK.-(null)REISWAIT ";EK
813 [153]:[133]"PEEKEZUGSKOST.WAIT";BK:NP[178]EK[170]BK:[153]
814 [153]"(null)ETTOPREIS WAIT ";NP:[153]
815 [133]"LEFT$CHR$-(null)OSTEN %WAIT  (null)CMDCMDCMD";H$:[139]H$[178]"(null)"[167]HG[178]NP:[137]820
817 HG[178]NP[170](NP[173]100[172][197](H$))
820 [153]:SE[178]HG[171]NP:SE[178][181](SE[172]100[170].5)[173]100:[153]"(null)ELBSTKOST.WAIT ";SE
825 [153]:[133]"CHR$EWINN %   WAIT";G:[139]G[178]0[167][153]"ONONON":[137]825
830 SK[178]HG:SK[178]SK[170](SK[173]100[172]G)
835 [153]:[133]"(null)(null)(null)T %     WAIT";M:SK[178]SK[170](SK[173]100[172]M)
840 SK[178][181](SK[172]100[170].5)[173]100:[153]:[153]"(null)ERKAUFSPR.WAIT ";SK:[137]845
599 [153]:[153]"LENNNTINUE DRUECKE (null)PACEWAITON";
845 NV[178]HG[170](HG[173]100[172]G):HS[178](NV[171]NP)[173]NV[172]100:HS[178][181](HS[172]100[170].5)[173]100
850 [153]:[153]"(null)PANNE %   WAIT ";HS
855 [153]:[153]"LENONTINUE DRUECKE (null)PACEWAIT"
860 [161]A$:[139]A$[179][177][199](32)[167]860
865 [137]19
1100 [159]2,4:[152]2,[199](14)"                                        "
1116 [152]2,[199](14)[199](17)"                                        "
1117 [152]2,[199](14)[199](17)"                                        "
1135 [152]2,[199](14)[199](17)"                                        "
1136 [152]2,[199](14)[199](17)"                                        "
1155 [152]2,[199](14)[199](17)"                                        "
1156 [152]2,[199](14)"                                        "
1200 [160]2:[142]
1500 [141]10000:TL$[178]"      "
1504 [153]"ATNNR.WAIT":[153]"(null)ORNWAIT":[153]"(null)AMEWAIT":[153]"(null)TR.WAIT"
1510 [153]"(null)(null)(null) WAIT":[153]"(null)RT WAIT":[153]"PEEK.V.WAIT":[153]"(null).(null).WAIT"
1515 [153]"STR$AT.WAIT"
1520 [153]""
1525 [129]I[178]0[164]8:A$(I)[178]"-":[130]I
1530 [129]I[178]0[164]8:[133]"";A$(I):[130]I
1535 [133]"VALINGABE OK MID$/(null)  MID$CMDCMDCMD";A$
1540 [139]A$[178]"(null)"[176]A$[178]"N"[167]1520
1545 [139]A$[178]"MID$"[167][142]
1550 [153]"ONONON":[137]1535
2000 [139]Z[177]99999.999[167]P[178]P:[137]2010
2001 [139]Z[177]9999.999[167]P[178]P[170]1:[137]2010
2002 [139]Z[177]999.999[167]P[178]P[170]2:[137]2010
2003 [139]Z[177]99.999[167]P[178]P[170]3:[137]2010
2004 [139]Z[177]9.999[167]P[178]P[170]4:[137]2010
2005 [139]Z[177].999[167]P[178]P[170]5:[137]2010
2006 P[178]P[170]6
2010 [141]2500
2011 P$[178][202]([196](P),2,2)
2012 [139]Z[179]1.00[167]Z$[178]"0"[170][202](Z$,2,3)
2013 [139]Z[178]0[167]Z$[178]"0.00"
2015 [142]
2500 D1$[178][196](Z)
2510 D2$[178][201](D1$,3)
2520 D3$[178][200](D2$,1)
2530 [139]D3$[178]"."[167]2640
2540 D4$[178][201](D1$,2)
2550 D5$[178][200](D4$,1)
2560 [139]D5$[178]"."[167]2620
2570 Z$[178]D1$[170]".00":[137]2650
2620 Z$[178]D1$[170]"0":[137]2650
2640 Z$[178]D1$
2650 [142]
4000 [129]I[178]1[164]RP:S(I)[178]0:M(I)[178]0:[130]I:S1[178]S:S[178]0:M1[178]M:M[178]0:V1[178]V:[142]
5000 [141]10000:[133]"(null)AHNUNG MID$/(null)  (null)CMDCMDCMD";A$:[139]A$[179][177]"MID$"[175]A$[179][177]"(null)"[167]5000
5002 KK$[178]"MID$":[139]A$[178]"(null)"[167]KK$[178]"(null)":[142]
5003 [139]JJ$[178]"MID$"[167][142]
5004 [160]15:[141]10000:[153]"(null)EGE DIE STR$ATENDISKETTE IN DIE ASCLOPPY"
5005 [153]"STR$RUECKE (null)PACE, FALLS OK"
5010 [161]A$:[139]A$[179][177][199](32)[167]5010
5015 [159]15,8,15,"I"
5016 [159]3,8,3,"#":JJ$[178]"MID$":[142]
5025 [159]15,8,15,"I":[159]3,8,3,"#":JJ$[178]"MID$"
6000 [139]KK$[178]"(null)"[167][142]
6001 [129]F[178]1[164]664
6002 [139]I$(F)[178]"/"[167]6010
6004 [130]F
6006 [141]10000:[153]"STR$ISKETTE BELEGT":[129]K[178]1[164]5000:[130]K:[142]
6010 [141]40000
6011 I$(F)[178]A$(1)[170]" "[170]A$(2)
6012 [142]
8000 [133]"(null)(null)(null) HERAUSZIEHEN MID$/(null)  (null)CMDCMDCMD";A$:[139]A$[179][177]"MID$"[175]A$[179][177]"(null)"[167][153]"ONON":[137]8000
8005 [139]A$[178]"(null)"[167][141]10000:[142]
8010 [153]:[133]"7 ODER 15";V$:[139]V$[179][177]"7"[175]V$[179][177]"15"[167][153]"ONONON":[137]8010
8015 [139]V$[178]"7"[167]VS[178]6.5420561
8020 [139]V$[178]"15"[167]VS[178]13.0434783
8025 [153]:[133]"PEEKRUTTO";BT
8030 NT[178]BT[171]BT[172]VS[173]100:NT[178][181](NT[172]100[170].5)[173]100
8035 [141]10000
8040 [142]
10000 K1[178]1:[137]10
10005 [142]
30000 [153]"LOAD"
30005 [153]"                 ":[153]"                  ":[153]""
30010 [133]"(null)SER-(null)AMEWAIT <    >CMDCMDCMDCMDCMDCMDCMD";UN$
30015 [139]UN$[179][177]"(null)(null)(null)(null)>"[167][153]"RIGHT$LLEGAL (null)SER":[128]
30020 [133]"(null)ASSWORD WAIT <    >CMDCMDCMDCMDCMDCMDCMDPOKE";PW$
30025 [139]PW$[179][177]"****>"[167][162]
30030 [153]"LOADSTOP":[142]
40000 [141]41000
40010 [152]15,"B-P:";CH;FP
40015 [129]FI[178]0[164]FX:[139]A$(FI)[178]""[167]A$(FI)[178]"*"
40020 [152]CH,A$(FI);[199](13);:[130]FI
40025 [152]15,"U2:";CH;FD;FT;FS
40030 [141]43000
40035 [142]
41000 [139]F[179]358[167]F1[178]0:F2[178]22:F3[178]1:[137]41500
41010 [139]F[177]357[175]F[179]472[167]F1[178]357:F2[178]20:F3[178]19:[137]41500
41020 [139]F[177]471[175]F[179]580[167]F1[178]471:F2[178]19:F3[178]25:[137]41500
41030 [139]F[177]579[167]F1[178]579:F2[178]18:F3[178]31
41500 FT[178][181](((F[171]F1)[171]1)[173](F2[171]1))[170]F3
41505 FS[178]F[171]F1[171](FT[171]F3)[172]F2[170](FT[171]F3[171]1)
41510 [142]
42000 [132]15,EN,EM$,ET,ES
42010 [139]EN[178]0[167][142]
42020 [141]10000
42030 [153]"VALRROR ON STR$ISK":[153]
42040 [153]EN:[153]EM$:[153]ET:[153]ES:[153]
42050 [133]"ASCORTSETZEN MID$/(null)  MID$CMDCMDCMD";X$:[139]X$[179][177]"MID$"[175]X$[179][177]"(null)"[167][153]"ONON":[137]42050
42060 [139]X$[178]"(null)"[167]100
42070 [138]
43000 [132]15,EN,EM$,ET,ES
43010 [139]EN[178]0[167][142]
43020 [141]10000:[153]"VALRROR ON STR$ISK":[153]
43025 [153]EN:[153]EM$:[153]ET:[153]ES:[153]
43030 [133]"ASCORTSETZEN MID$/(null)  MID$CMDCMDCMD";A$:[139]A$[179][177]"MID$"[175]A$[179][177]"(null)"[167][153]"ONON":[137]43030
43035 [139]A$[178]"MID$"[167]19
43040 [137]100
50000 [133]"VALRSTEINGABE J/N  NCMDCMDCMD";X$:[139]X$[179][177]"J"[175]X$[179][177]"N"[167][153]"ONON":[137]50000
50005 [139]X$[178]"J"[167][129]I[178]1[164]664:I$(I)[178]"/":[130]I:[142]
50010 [159]1,8,14,"INDEX FAKTUR,S,R":[141]43000
50015 [129]I[178]1[164]664
50020 [132]1,I$(I)
50025 [139]( ST [175] 2)[167]50020
50030 [130]I:[160]1:[142]
55000 [153]"LOAD  ASCATN(null)(null)(null)(null)ATN                BY MID$(null)VAL(null)RIGHT$-(null)(null)ASC(null)"
55020 [129]KL[178]1[164]1000:[130]:[142]